home *** CD-ROM | disk | FTP | other *** search
/ Know Your Birds of Prey - Vultures to Falcons / Know Your Birds of Prey - Vultures to Falcons.iso / setup.mst < prev    next >
Text File  |  1995-04-09  |  18KB  |  510 lines
  1. '**************************************************************************
  2. '*                       MSSetup script for AXIA BOP
  3. '**************************************************************************
  4.  
  5. '*'$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'mscpydis.inc'
  9. '$INCLUDE 'msdetect.inc'
  10.  
  11. ''Dialog ID's
  12. CONST WELCOME       = 100
  13. CONST AXIAINFO      = 101
  14. CONST ASKQUIT       = 200
  15. CONST DESTPATH      = 300
  16. CONST EXITFAILURE   = 400
  17. CONST EXITQUIT      = 600
  18. CONST EXITSUCCESS   = 700
  19. CONST APPHELP       = 900
  20. CONST CHECK         = 2500
  21. CONST SMALLWIN      = 2200
  22. CONST RESTART       = 2600
  23. CONST RESTARTII     = 2700
  24. CONST BADPATH       = 6400
  25.  
  26. ''Bitmap ID
  27. CONST LOGO = 1
  28.  
  29. GLOBAL WinDir$
  30. GLOBAL WinSysDir$
  31. GLOBAL DEST$        ''Default destination directory.
  32. GLOBAL WINDRIVE$    ''Windows Drive Letter.
  33. GLOBAL CHECKSTATES$
  34. GLOBAL CUIDLL$
  35.  
  36. DECLARE SUB InstallVFW
  37. DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
  38. DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER
  39. DECLARE SUB Reboot LIB "iniupd.dll"
  40. DECLARE FUNCTION ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  41. DECLARE SUB Install
  42. DECLARE SUB VWInstall
  43. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  44. DECLARE SUB WinExec LIB "kernel.exe" (cmd$, show%)
  45. DECLARE FUNCTION getPhysicalMemorySize LIB "mscuistf.dll" AS INTEGER
  46.  
  47. INIT:
  48.     WinDir$ = GetWindowsDir()
  49.     WinSysDir$ = GetWindowsSysDir()
  50.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  51.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  52.  
  53.     SetBitmap CUIDLL$, LOGO
  54.     SetTitle "Axia Know Your Birds of Prey Setup"
  55.  
  56.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  57.     IF szInf$ = "" THEN
  58.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  59.     END IF
  60.     ReadInfFile szInf$
  61.  
  62.     DEST$ = "C:\AXIABOP"
  63.  
  64. '$IFDEF DEBUG
  65.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  66.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  67.     IF IsDriveValid(WinDrive$) = 0 THEN
  68.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  69.         GOTO QUIT
  70.     END IF
  71. '$ENDIF ''DEBUG
  72.  
  73.  
  74. WELCOME:
  75.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  76.     IF sz$ = "CONTINUE" THEN
  77.         UIPop 1
  78.     ELSE
  79.         GOSUB ASKQUIT
  80.         GOTO WELCOME
  81.     END IF
  82.  
  83.  
  84.  
  85. GETPATH:
  86.     SetSymbolValue "EditTextIn", DEST$
  87.     SetSymbolValue "EditFocus", "END"
  88. GETPATHL1:
  89.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  90.     DEST$ = GetSymbolValue("EditTextOut")
  91.  
  92.     IF sz$ = "CONTINUE" THEN
  93.         IF IsDirWritable(DEST$) = 0 THEN
  94.             GOSUB BADPATH
  95.             GOTO GETPATHL1
  96.         END IF
  97.         UIPop 1
  98.     ELSEIF sz$ = "REACTIVATE" THEN
  99.         GOTO GETPATHL1
  100.     ELSEIF sz$ = "BACK" THEN
  101.         UIPop 1
  102.         GOTO WELCOME
  103.     ELSE
  104.         GOSUB ASKQUIT
  105.         GOTO GETPATH
  106.     END IF
  107.  
  108.  
  109.     Install
  110.  
  111.  
  112. QUIT:
  113.     ON ERROR GOTO ERRQUIT
  114.  
  115.     IF ERR = 0 THEN
  116.         dlg% = EXITSUCCESS
  117.     ELSEIF ERR = STFQUIT THEN
  118.         dlg% = EXITQUIT
  119.     ELSE
  120.         dlg% = EXITFAILURE
  121.     END IF
  122. QUITL1:
  123.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  124.     IF sz$ = "REACTIVATE" THEN
  125.         GOTO QUITL1
  126.     END IF
  127.     UIPop 1
  128.  
  129.     END
  130.  
  131. ERRQUIT:
  132.     i% = DoMsgBox("Setup sources were corrupted, call (403) 262-2942!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  133.     END
  134.  
  135.  
  136.  
  137. BADPATH:
  138.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  139.     IF sz$ = "REACTIVATE" THEN
  140.         GOTO BADPATH
  141.     END IF
  142.     UIPop 1
  143.     RETURN
  144.  
  145.  
  146.  
  147. ASKQUIT:
  148.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  149.  
  150.     IF sz$ = "EXIT" THEN
  151.         UIPopAll
  152.         ERROR STFQUIT
  153.     ELSEIF sz$ = "REACTIVATE" THEN
  154.         GOTO ASKQUIT
  155.     ELSE
  156.         UIPop 1
  157.     END IF
  158.     RETURN
  159.  
  160.  
  161.  
  162. '**
  163. '** Purpose:
  164. '**     Builds the copy list and performs all installation operations.
  165. '** Arguments:
  166. '**     none.
  167. '** Returns:
  168. '**     none.
  169. '*************************************************************************
  170. SUB Install STATIC
  171.  
  172.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  173.     CreateDir DEST$, cmoNone
  174.  
  175. '*    OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  176. '*    WriteToLogFile ""
  177. '*    WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  178. '*    WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  179. '*    WriteToLogFile ""
  180. '*    WriteToLogFile "May have had to create the directory: " + DEST$
  181. '*    WriteToLogFile ""
  182.  
  183.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  184.     AddSectionFilesToCopyList "Ctl3d", MakePath (SrcDir$, "other"), WinSysDir$
  185.     AddSectionFilesToCopyList "Ini", SrcDir$, WinDir$
  186.     CopyFilesInCopyList
  187.  
  188. '* create the subsets directory
  189.  
  190.     CreateDir MakePath(DEST$,"SUBSETS"), cmoNone
  191.  
  192. '* adjust the INI file
  193.  
  194. '*    ini$ = MakePath(WinDir$, "axiabop.ini")
  195. '*    IF getPhysicalMemorySize < 8 THEN
  196. '*        CreateIniKeyValue ini$, "midi", "music", "0" , cmoOverwrite
  197. '*    ELSE
  198. '*        CreateIniKeyValue ini$, "midi", "music", "1" , cmoOverwrite
  199. '*       END IF
  200.  
  201. '* create the program manager group & items
  202.  
  203.     CreateProgmanGroup "AXIA Birds of Prey", WinDir$+"axiabop.grp", cmoNone
  204.     ShowProgmanGroup  "AXIA Birds of Prey", 1, cmoNone
  205.  
  206.     CreateProgmanItem "AXIA Birds of Prey", "Axia Birds of Prey", MakePath(DEST$,"bin\axia.exe ")+SrcDir$, MakePath(DEST$,"bin\axiaicon.ico")+",,,,"+DEST$, cmoOverwrite
  207.     CreateProgmanItem "AXIA Birds of Prey", "How to Use Axia", MakePath(DEST$,"bin\axia.exe ")+SrcDir$+" Ahtua.afs", MakePath(DEST$,"bin\htua.ico")+",,,,"+DEST$, cmoOverwrite
  208.     CreateProgmanItem "AXIA Birds of Prey", "Guide to Hawks", MakePath(DEST$,"bin\axia.exe ")+SrcDir$+" Ahawks.afs", MakePath(DEST$,"bin\axiaicon.ico")+",,,,"+DEST$, cmoOverwrite
  209.     CreateProgmanItem "AXIA Birds of Prey", "Hawks Glossary", MakePath(DEST$,"bin\glossary.exe")+" "+MakePath(SrcDir$, "topogl\topogr.gl"), ",,,,"+MakePath(SrcDir$, "topogl"), cmoOverwrite
  210.     CreateProgmanItem "AXIA Birds of Prey", "Hawk Panorama", MakePath(SrcDir$, "other\viewer.exe ")+MakePath(SrcDir$,"other\5murray.bmp"), ",,,,"+MakePath(SrcDir$,"other"), cmoOverwrite
  211.     CreateProgmanItem "AXIA Birds of Prey", "Fuertes - Slide Shows", MakePath(DEST$,"bin\pictures.exe ")+SrcDir$+" fuertes.dat 5", MakePath(DEST$,"bin\slidshow.ico")+",,,,"+DEST$, cmoOverwrite
  212.     CreateProgmanItem "AXIA Birds of Prey", "US Fish & Wildlife Video", MakePath(DEST$,"usfw\usfw.exe"), MakePath(DEST$,"usfw\usfw.ico")+",,,,"+MakePath (SrcDir$, "usfw"), cmoOverwrite
  213.     CreateProgmanItem "AXIA Birds of Prey", "Table of Contents", MakePath(GetWindowsDir, "winhelp.exe")+" "+SrcDir$+"help\readhelp.hlp", ",,,,"+MakePath (SrcDir$, "help"), cmoOverwrite
  214.     CreateProgmanItem "AXIA Birds of Prey", "Installation Help", MakePath(GetWindowsDir, "winhelp.exe")+" "+SrcDir$+"help\install.hlp", ",,,,"+MakePath (SrcDir$, "help"), cmoOverwrite
  215.     CreateProgmanItem "AXIA Birds of Prey", "Read Me", MakePath(GetWindowsDir, "write.exe")+" "+SrcDir$+"other\readme.wri", ",,,,"+MakePath (SrcDir$, "midi\scripts"), cmoOverwrite
  216.  
  217. INFO:
  218.     sz$ = UIStartDlg(CUIDLL$, AXIAINFO,"FInfoDlgProc", APPHELP, HELPPROC$)
  219.     IF sz$ = "CONTINUE" THEN
  220.         UIPop 1
  221.     ELSE
  222.         GOSUB ASKQUIT
  223.         GOTO INFO
  224.     END IF
  225.  
  226.     InstallVfW
  227. '*    CloseLogFile
  228.  
  229. ASKQUIT:
  230.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  231.  
  232.     IF sz$ = "EXIT" THEN
  233.         UIPopAll
  234.         ERROR STFQUIT
  235.     ELSEIF sz$ = "REACTIVATE" THEN
  236.         GOTO ASKQUIT
  237.     ELSE
  238.         UIPop 1
  239.     END IF
  240.     RETURN
  241.  
  242. END SUB
  243.  
  244.  
  245.  
  246. '**
  247. '** Purpose:
  248. '**     Appends a file name to the end of a directory path,
  249. '**     inserting a backslash character as needed.
  250. '** Arguments:
  251. '**     szDir$  - full directory path (with optional ending "\")
  252. '**     szFile$ - filename to append to directory
  253. '** Returns:
  254. '**     Resulting fully qualified path name.
  255. '*************************************************************************
  256. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  257.     IF szDir$ = "" THEN
  258.         MakePath = szFile$
  259.     ELSEIF szFile$ = "" THEN
  260.         MakePath = szDir$
  261.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  262.         MakePath = szDir$ + szFile$
  263.     ELSE
  264.         MakePath = szDir$ + "\" + szFile$
  265.     END IF
  266. END FUNCTION
  267.  
  268. '*** Installation for video for windows
  269.  
  270. SUB InstallVfW STATIC
  271.  
  272. VFWINIT:
  273.  
  274.     CUIDLL$ = "vwcuistf.dll"            ''Custom user interface dll
  275.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  276.  
  277.     WIN32ENABLED% = 0
  278.     MajorVer% = GetWindowsMajorVersion()
  279.     MinorVer% = GetWindowsMinorVersion()
  280.     Processor% = GetProcessorType()
  281.     WinDir$ = GetWindowsDir()
  282.     DEST$ = GetWindowsDir()
  283.     WinSysDir$ = GetWindowsSysDir()
  284.     WinSys32Dir$ = WinDir$ + "system32"
  285.  
  286.     IF MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  287.     i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  288.     END
  289.     END IF
  290.  
  291.     'Prevents installation on 286
  292.     IF Processor% < 3 THEN
  293.     i% = DoMsgBox("Video for Windows requires a 386 or greater processor or emulator.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  294.     END
  295.     END IF
  296.  
  297.     ' Use Wowexec to determine version of NT.  3.1 did not stamp wowexec and wow returns 3.1 as version
  298.     IF OnWindowsNT() THEN
  299.       OnNT$ = "TRUE"
  300.       WowVersion$ = GetVersionOfFile(WinSys32Dir$ + "\wowexec.exe")
  301.       IF WowVersion$ = "" THEN
  302.          i% = DoMsgBox("Video for Windows does not run on Windows NT 3.1.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  303.          END
  304.       END IF
  305.     END IF
  306.  
  307.     SetBitmap CUIDLL$, LOGO
  308.     SetTitle "Video for Windows 1.1 Runtime"
  309.  
  310.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  311.     IF szInf$ = "" THEN
  312.        szInf$ = GetSymbolValue("STF_CWDDIR") + "VFWSETUP.INF"
  313.     END IF
  314.     ReadInfFile szInf$
  315.  
  316.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  317.  
  318. VWWELCOME:
  319.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  320.     IF sz$ = "CONTINUE" THEN
  321.        UIPop 1
  322.      ELSE
  323.     GOSUB VWASKQUIT
  324.     GOTO VWWELCOME
  325.     END IF
  326.  
  327. ''Prepare Copy list and check size
  328.  
  329.     ClearCopyList
  330.     SrcDir$ = GetSymbolValue("STF_SRCDIR") + "vfwrt1d"
  331.  
  332. ''  Runtime files (on Windows disk)
  333. ''  Do not install OLE or MPlayer if on next release of NT or Windows
  334.  
  335.     IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN            'These files not necessary on Windows NT
  336.     AddSectionFilesToCopyList "MPlayer", SrcDir$, WinDir$
  337.     AddSectionFilesToCopyList "OLE2", SrcDir$, WinSysDir$
  338.     END IF
  339.     AddSectionFilesToCopyList "VfW Runtime", SrcDir$, WinSysDir$
  340.     AddSectionFilesToCopyList "ACM Drivers", SrcDir$, WinSysDir$
  341.     AddSectionFilesToCopyList "AVICodecs", SrcDir$, WinSysDir$
  342.     IF OnNT$ = "TRUE" THEN
  343.     AddSectionFilesToCopyList "NT MSVideo", SrcDir$, WinSys32Dir$
  344.     ENDIF
  345. ''*************************************************************************************************************************
  346. ''*************************************************************************************************************************
  347. ''To add a DCI provider, please un-comment the AddSectionFilesToCopyList,
  348. ''and add a "DCI Provider" section with to the SETUP.INF file.
  349. ''
  350. ''    AddSectionFilesToCopyList "DCI Provider", SrcDir$, WinSysDir$
  351. ''*************************************************************************************************************************
  352. ''*************************************************************************************************************************
  353.  
  354. ''  Check windrive diskspace
  355.     SizeReq& = GetCopyListCost ("","", "")
  356.     IF SizeReq& <> 0 THEN
  357.     GOSUB VWSMALLWIN
  358.     END
  359.     END IF
  360.  
  361. VWInstall
  362.  
  363. '' Restart Windows: if it has to updates ACM from DOS, it restarts Windows automatically
  364. '' else, it gives the user the choice
  365.     RESTRT% = RestartListEmpty ()
  366.     Exe$ = DEST$ + "\_msrstrt.exe"
  367.     Batch$ = DEST$ + "\_mssetup.bat"
  368.     empty$ = ""
  369. VWRESTART:
  370.     IF RESTRT% = 0 THEN
  371.        sz$ = UIStartDlg(CUIDLL$, RESTART, "FInfo0DlgProc", 0, "")
  372.        IF sz$ = "REACTIVATE" THEN
  373.       GOTO VWRESTART
  374.        ENDIF
  375.        I% = ExitExecRestart ()
  376.        RemoveFile Exe$, cmoForce
  377.        RemoveFile Batch$, cmoForce
  378.        END
  379.     ELSE
  380.        sz$ = UIStartDlg(CUIDLL$, RESTARTII, "FQuitDlgProc", 0, "")
  381.        IF sz$ = "CONTINUE" THEN
  382.       I% = ExitWindowsExec (Exe$, empty$)
  383.       IF I% = 0 THEN
  384.          GOTO VWRESTART
  385.       ELSE
  386.          END
  387.      ENDIF
  388.        ELSEIF sz$ = "EXIT" THEN
  389.       UIPopAll
  390.       END
  391.        ELSEIF sz$ = "REACTIVATE" THEN
  392.       GOTO VWRESTART
  393.        ELSE
  394.       UIPop 1
  395.        END IF
  396.     END IF
  397.  
  398.  
  399. VWQUIT:
  400. '*    ON ERROR GOTO VWERRQUIT
  401.  
  402.     IF ERR = 0 THEN
  403.     dlg% = EXITSUCCESS
  404.     ELSEIF ERR = STFQUIT THEN
  405.     dlg% = EXITQUIT
  406.     ELSE
  407.     dlg% = EXITFAILURE
  408.     END IF
  409. VWQUITL1:
  410.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  411.     IF sz$ = "REACTIVATE" THEN
  412.     GOTO VWQUITL1
  413.     END IF
  414.     UIPop 1
  415.     END
  416.  
  417. VWERRQUIT:
  418.     i% = DoMsgBox("An installation problem occured, call the product support service", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  419.     END
  420.  
  421.  
  422. VWASKQUIT:
  423.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  424.  
  425.     IF sz$ = "EXIT" THEN
  426.     UIPopAll
  427. ''        ERROR STFQUIT
  428.     END
  429.     ELSEIF sz$ = "REACTIVATE" THEN
  430.     GOTO VWASKQUIT
  431.     ELSE
  432.     UIPop 1
  433.     END IF
  434.     RETURN
  435.  
  436. VWSMALLWIN:
  437.     sz$ = UIStartDlg(CUIDLL$, SMALLWIN, "FInfo0DlgProc", 0, "")
  438.     IF sz$ = "REACTIVATE" THEN
  439.     GOTO VWSMALLWIN
  440.     END IF
  441.     UIPop 1
  442.     RETURN
  443.  
  444.  
  445. END SUB
  446.  
  447. '**
  448. '** Purpose:
  449. '**     Performs all installation operations for the Video for Windows 1.1 runtime.
  450. '** Arguments:
  451. '**     none.
  452. '** Returns:
  453. '**     none.
  454. '*************************************************************************
  455. SUB VWInstall STATIC
  456.  
  457.     SetRestartDir WinDir$
  458.     CopyFilesInCopyList
  459.  
  460. ''Updating WIN.INI and SYSTEM.INI
  461. ''Only update SYSTEM.INI  on NT or next version of Windows for other codecs
  462.  
  463. IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN
  464.     IF VflatdPresent() = 0 THEN
  465.        CreateSysIniKeyValue WinDir$ + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
  466.     END IF
  467. END IF
  468.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  469.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  470.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV32", "ir32.dll", cmoOverwrite
  471.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV31", "IR32.dll", cmoOverwrite
  472.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  473.     I% = DoesIniKeyExist ("system.ini", "Drivers", "VIDC.RT21")
  474.     IF I% = 0  THEN
  475.        CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "ir21_r.dll", cmoOverwrite
  476.     END IF
  477.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.YVU9", "ir21_r.dll", cmoOverwrite
  478.     CreateIniKeyValue WinDir$ + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  479.     CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  480.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  481.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  482.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  483.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  484.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  485.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  486.  
  487. ''*************************************************************************************************************************
  488. ''*************************************************************************************************************************
  489. ''To add a DCI provider, please un-comment the UDH line, and un-comment and replace the    <provider> with your own file name
  490. ''
  491. ''  CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "DCI", "<provider>", cmoOverwrite
  492. ''  CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "vids.draw", "udh.dll", cmoOverwrite
  493. ''*************************************************************************************************************************
  494. ''*************************************************************************************************************************
  495.  
  496. ''Do not register components not installed with Video for Windows on NT or next version of Windows.
  497. IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN
  498.     Run ("regedit.exe /s " + MakePath(WinDir$, "mplayer.reg"))
  499.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "OLE2.reg"))
  500.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "cleanup.reg"))
  501.  
  502. '' Mplayer
  503.     CreateProgmanItem "Accessories", "Media Player", MakePath(WinDir$, "mplayer.exe"), "", cmoOverwrite
  504.  
  505. END IF    ''NT and next version of Windows installation stop here.
  506.  
  507.     Run ("profdisp.exe")
  508. END SUB
  509.  
  510.